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DTX03 

1520-1 WPEWRITER TEST 
DIPAI, NAME DX03 



PROGRAM DESCRIPTION 



1 . Purpose 

This program tests all operation of the 1620-1 Console Typewriter, 
including read numeric and read alpha if desired. 



2. Test Method 

This program is a fault detection test and is made up of short, 
independent routines. Each operation and character set is 
executed three times before proceeding to the next routine Standard 
program switch control is provided. 



3 . Modifications 

This program contains the necessary linkage to make it compatible 
with the DIPAL Monitor. 



U. Units of System Required 

This test requires the Jjasic 1620-1 and 1622 card reader on 1621 
paper tape reader. 

5. E/C Level 

All levels. 



L OADING INSTRUCTIONS 

1. Clear core by inserting 31 00003 00002. 
Release/Start. 

2. Load test deck from 1622 by pushing LOAD button. 

3. Load from paper tape Insert 36 00000 00300 K-S 

i-L To reproduce the paper tape. 

Insert 35 00000 00300, Release, Press 
"SIE" Button. After tape has loaded Insert 



00000 35 00000 
OC012 m 00416 
00024 16 00013 
00036 IB- ooooi 
00048 49 00416 



00200 
00000 

ooo£9 

00041 
00000 



DTX03 PAGE 1 
PN 2172335 
EC 404980 



U. Continued 

Release/Start 

When MAR reaches 03202, Stop by pressing "SCE" Button, Reset, 
and Insert 35 19999 00200. Release/Start 

5. Machine v>?ill halt with 00011 in MAR. Press START to execute test. 



OPERATING INSTRUCTIONS 

1, The machine will type instructions for setting margins and tab stops. 
After setting these, press START to continue, 

2. After one program pass is complete, pass complete message is typed 
out. If SWU is on, the program is repeated. If SW4 if off, the 
next program is read from the 1622. 



3. Read Alpha Test 

A manual branch to location 01982 must be executed in order to enter 
the Read Alpha test routine. Instructions will be typed out, and then 
a Read Alpha instruction executed. Any length record may be entered. 
Terminate with a record mark, release and start. The same record will 
be typed out. Switch 2 will cause the routine to loop in either the 
read or write phase, and Switch M will repeat the complete Read Alpha 
test. If SWU and SW2 are off, the program will halt after writing 
the record. Pressing START will cause the routine to repeat. 

4. Read Numeric Test 

Same as the !<ead Alpha test, except a manual branch to location 02256. 

5. Program Console Switches 

The program console switches have the following control: 

Switch 1 ON: Bypass all error routines 
OFF: Test Switch 3 on error 

Switch 2 ON: Loop in test routine 

OFF: Continue to next routine 



Switch 3 ON: 

OFF : 



Halt on error if SWl off 
Typeout on error if SWl off 



Switch U ON: 
OFF: 



Repeat program 

Load next program from 1622 
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6. Data Check Switches - as desired. 

7 , Normal Program Halts 

00560 Allow Tab and Margin Settings 

02138 Read Alpha Test Gpmplete and SW4 OFF. 

02412 Read Numeric Test Complete and SW4 OFF. 

- ERROR INFORMATION 

1. Error Halts 

There is one error halt in the program. 

02710 Detected error. Display 1R2 for location +12 of error exit. 

2- Error Typeouts 

Error messages are typed out in the following format: 
ERROR EXIT ADR OllOO MBR-E CK MBR-O CK 

TYPEWRITER TEST DTX03 

Set Margins at 10 and 90, Tab stops at 55 and 85 

ABCDEFGHIJKLMNOPQRSTUVWXYZ 
ABCDEFGHIJKLMNOPQRSTUVWXYZ 
ABCDEFGHIJKLMNOPQRSTUVWXYZ 

.)+$*-/, (=#-0123456789 
.)+$*-/, (=0-0123456789 
.)+$*-/, (=0-0123456789 

0123456789(1) 
0123456789© 
01234567890 



01234567 89(l)=f 
01234567890+ 
Ol234567890t 



TABULATE 

TABULATE 
TABULATE 



RETURN 'CARRIAGE 

RETURN CARRIAGE 
RETURN CARRIAGE 



5789 
6789 
6789 



DTX03 Page 3 
PN 2172336 
EC 404980 



SPACE WICE SPACE TIVICE SPACE TIV ICE SPACE lAtf ICE SPACE TWICE 

DTX03 lYPOVRITER TEST COMPLETE 

4901982RS 

KEY IN ALPIIA RECORD, TER^|INATE WITH RECORD MARK 
ABCDEFGHIJKLMNOPQRSTUVWXYZUIOJKLM, .+$-/!) Qf RS 
ABCDEFGHIJKLMNOPQRSTIJVWXYZUIOJKLM, .+$^/@0 

4902256RS 

KEY IN NUMERIC RECORD, TERMINATE WITH'^11EC0IU) >IAR^^^^^ 

123455789l23tl567890Qi?^RS 

123456789123115678900© 
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c 



Start 



0040 



(Type A 
Test Name J 



00512 



/Test Setup" 
f Instructions 



00560 



0 



Halt for Setup 



02686 



00726 



^ BTM 

— • 



BB 
00912 




A 



DTX0 3 Flow Chart 
Page 1 of 1 



Write 

Alpha- 
Alpha Char. 



mm tm^M 

01092 



Write 

Alpl:>a- 
Speco Char, 



Write 

Numeric- 
Unflagged 



01236 



Dump 

Numeric- 
Flagged 



01392 



Test Tab 
& 

Return Car 



01634 



Test Tab 

& 

Carriage Ret 



01802 

J Test 
Space 



01982 



Test 
Read Alpha 



02534 



Type 
Test Comp 



02558 



02594 




Load Next 
Program 



■^^ V Manual Branch 
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DTX03 

1620-1 TYPEWRITER TEST 



00A02 










00 RG 


402 




18000 




00000 




MONIT 


OS 


» 18000 




1 8 1 1 7 




ocooo 




HON 


OS 


t 1 8 1 1 7 




00403 




00004 




NAME 


DAC 


4»DX03f 




00414 




00005 


■-3202 




DSA 


LAST 




00416 


45 


00440 


18117 


ORG 


BNR 


»+24,M0N 




00428 


49 


18000 


00000 




B 


MONIT 




00440 


34 


00726 


00102 


START 


RCTV 


Tl.O 




00452 


16 


00441 


00OM9 




TFM 


»-ll,49,10 




00464 


39 


00585 


OOiOO 




WATY 


IDEM,, » 


TYPE TEST NAME 


00476 


. 47 


00500 

\J \J ^ \j Vf 


0 1900 




BNA 


•-S-24,,, 


TEST ANY DATA CHECK 


00488 


1 7 


02686 


-0488 




9TM 


ERRORf «t , 


GO TO ERROR ROUTINE 


00500 


34 


00000 


00102 




RCTY 






00512 




006P9 


00100 




WATY 


INST, , 9 


TYPE INSTRUCTIONS 


00524 


47 


00548 


01900 




BNA 


»+24f , , 


TEST ANY DATA CK 




1 7 




-"n5')6 




BTM 


ERROR,*, , 


GO TO ERROR ROUTINE 


00548 


,34 


ocooo 


00102 




RCTY 






00560 


48 


OOOQO 


00000 




H 


» , , 


HALT TO ALLOW TAB SETTING 


00572 


49 


00726 


00000 




B 


Tl.O, , , 


GO TO FIRST TEST 


00585 

V W ■x' o ^ 








I DEN 


DAC 


22, TYPEWRITER TEST DTX03* 






00025 




INST 


DAC 


25, SET MARGINS AT 10 ANO 90, 


V? WW I 7 










DAC 


2 3, TAB STOPS AT 55 AND 85 • 










It 


THIS ROUTINE 


WILL TYPE THE ALPHABETIC 










if 


CHARACTERS 3 


TIMES. 


0072 5 




00002 




COUNT 


DC 


2,0,, 2 


OIGIf FIELD FOR PASS COUNT 


00726 


16 


00725 


000-0 . 


Tl.O 


TFM 


COUNT, 0, 10, 


RESET PASS COUNT TO 0 


00738 


34 


00000 


00102 




RCTY 






00750 


34 


00000 


00102 




RCTY 










( 1 n a *i Q 

V O J 7 


00100 




WATY 


Kl.O* , , 


TYPE FIRST PATTERN 


00774 


47 


00798 


01900 




BNA 


»+24,,, 


TEST ANY DATA CK 


00 7ft A 


1 7 


U O O O 


— O 7 H 




BTM 


ERROR, »,» 


GO TO ERROR ROUTINE 


00798 


46 


00750 


00200 




SC2 


Tl,0+24, , , 


LOOP IF SW2 ON 


00810 


11 


00725 


000-1 




AM 


COUNT, I, 10, 


UPDATE PASS COUNT 


n 0 7 ? 

U W O £ C 




0072 


000— 




CM 


COUNT, 3, 10, 


SEE IF 3 LINES TYPED 


C0834 


47 


00750 


0 1 300 




BL 


TUO-f-24, , , 


GO TYPE ANOTHER LINE 


V/ W O ~ 




OOQ 1 2 


OOOOfJ 




8 


T2.0, , , 


GO TO NEXT TEST 


00859 




00027 




K 1 - 0 


DAC 


2 7,ABCDEFGHIJKLMN0PQRSTUVWXYZ« 












THIS ROUTINE 


WRITES ALL NUMERALS AND 










» 


SPECIAL CHARACTERS 3 TIMES IN ALPHA MQOE. 


00912 


16 


00725 


000-0 ■ 


* 

T2.0 


TFM 


COUNT,©, 10, 


RESET PASS COUNT TO 0 


00924 


34 


00000 


00102 




RCTY 






00936 


34 


00000 


00102 




RCTY 






00948 


39 


01045 


00100 




WATY 


K2.0,,, 


TYPE TEST PATTERN 


00960 


47 


00984 


01900 




BNA 


»+24,,, 


TEST ANY DATA CK 


00972 


17 


02686 


-0972 




BTM 


ERROR 1 », » 


GO TO ERROR ROUTINE 


00984 


46 


00936 


00200 




BC2 


T2,0 + 24, 


LOOP IF SW2 ON 


00996 


11 


00725 


000- 1 




AH 


COUNT, 1,10, 


UPDATE PASS COUNT 



DTX03 
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01008 14 00725 000-3 
01020 47 00936 01300 
01032 49 01092 00000 



01045 



01092 
01104 
01116 
01128 
01140 
01152 
01164 
01176 
01188 
01200 
01212 



00024 



16 00725 
34 00000 
34 00000 
38 01224 
47 01164 

17 02686 

46 01116 
11 00725 
14 00725 

47 01116 
49 01236 



000-0 
00102 
00102 
00100 
01900 
-1152 
00200 
000-1 
000-3 
01300 
00000 



01224 00010 

01234 COOOl 

01235 OOQOl 



* 

K2.0 
* 

T3.0 



K3.0 



CM COUNT, 3, 10, 
BL T2.0+24,,, 
B T3.0,,, 



SEE IF 3 LINES TYPED 
GO TYPE ANOTHER LINE 
GO TO NEXT TEST 



DAC 24, .)+$•-/, (=«-0123456789' 

THIS ROUTINE WILL TYPE 3 LINES OF 
UNFLAGGED NUMERIC CHARACTERS. 



TFM COUNT, 0,10, 

RCTY 

RCTY 

WNTY K3,0,,, 



RESET PASS COUNT TO 0 



BNA •*Z^,ft 

BTM ERROR,*, • 

BC2 T3.0*24,,, 

AM COUNT, 1,10, 

CM COUNT, 3, 10, 

8L T3^0<^24,,, 

B T4,0,,, 

DSC I0t0l23456789 

DNB 1,,, 

DC 1 , « , , 



TYPE TEST PATTERN 
TEST ANY DATA CK 
GO TO ERROR ROUTINE 
LOOP IF SW2 ON 
UP DATE PASS COUNT 
SEE IF 3 LINES TYPED 
GO TYPE ANOTHER LINE 
GO TO NEXT TEST 



8-4 CHAR 
RECORD MARK 



THIS ROUTINE TYPES 3 LINES OF FLAGGED NUMERIC 
CHARACTERS USING DUMP NUMLRIC INSTRUCTION. 



01236 


16 


00725 


000-0 


T4.0 


TFM 


COUNT, 0, 10, 


RESET PASS COUNT TO 0 


01248 


31 


19988 


01 380 




TR 


19988, K4. 0, , 


SET UP DATA FIELD 


01260 


34 


ocooo 


00102 




RCTY 






01272 


34 


00000 


00102 




RCTY 






01284 


35 


19988 


00100 




DNTY 


19988, , , 


TYPE TEST PATTERN 


01296 


47 


01320 


01900 




BNA 




TEST ANY DATA CK 


01308 


17 


02686 


-1308 




BTM 


ERROR,*, • 


GO TO ERROR ROUTINE 


01320 


46 


01272 


00200 




BC2 


T4.0+36, , , 


LOOP IF SW2 ON 


01332 


11 


00725 


000-1 




AM 


COUNT, 1, 10, 


UPDATE PASS COUNT 


01344 


14 


00725 


000-3 




CM 


COUNT, 3, 10, 


SEE IF 3 LINES TYPED 


01356 


47 


01272 


01300 




BL 


T4.0>36, 


GO TYPE ANOTHER LINE 


01368 


49 


01392 


00000 


• 


B 


T5.0,,, 


GO TO NEXT TEST 


01380 




OOOOl 




K4.0 


DC 


1,-0 




01382 




00002 






DC 


2,-12 




01384 




00002 






DC 


2,-34 




01386 




00C02 






DC 


2,-56 




01388 




00002 






DC 


2,-78 




0L389 




00001 






DC 


1,-9 




01390 




00001 






DNB 


lot 


8-4 CHAR 


01391 




00001 




• 


DC 


l»»tt 


RECORD MARK 










» 
« 


THIS ROUTINE TESTS THE TABULATE AND 










■ » 


RETURN CARRIAGE 


OPERATIONS. 


01392 


16 


00725 


000-0 


T5.0 


TFM 


COUNT,©, 10, 


RESET PASS COUNT TO ZERO 


01404 


34 


00000 


00102 




RCTY 






01416 


34 


00000 


00102 




RCTY 






01428 


39 


01585 


00100 




WATY 


K5.0,,, 


TYPE TABULATE 


01440 


34 


00000 


00108 




TBTY 


Iff 


TAB TO 45 



DTX03 
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n 1 6 *> 7 

U 1. M 3 c 


^7 
** 1 


ft 1 A 7 A 


ft 1 Q ft ft 




oNA 


• ♦24 » 1 1 


TEST ANY DATA CK 


n 1 

\f L •» 0*t 


1 7 
i 1 


ft 9Afl A 






D In 


ERROR t • 1 » 


GO TO ERROR ROUTINE 


ft 1 A 7 A 


^ Q 


ft 1 Aft ^ 


ftft 1 ftft 




WA T T 


K5» I » 1 1 


TYPE RETURN CARRIAGE 


n t A Q Q 


1 A 


ft ft ft ft ft 
00000 


ftft V ft 

00 1 0<: 




RCTY 






01500 


47 


01524 


01900 




BNA 


» + 24 , « , , 


TcST ANY DATA CK 


01512 


17 


02686 


-1512 




BTM 


ERRORt*» , 


GO TO ERROR ROUflNE 




A A 


ft 1 A 'J Q 


ft ft *> ft ft 
OUaOO 




BC2 


T5.0*36f 1 t 


LOOP IF SW2 ON 


01536 


11 


00725 


000-1 




AM 


COUNT, l.lOt 


UPDATE PASS COUNT 






ft ft 7 5 R 


ftftft— n 




ft tit 


COUNT, 3, 10, 


SEE IF 3 PASSES MADE 


01560 


47 


01428 


01300 




BL 


T5.0+36, , , 


DO AGAIN 




•t / 


ft 1 A A 


ftftftftft 


• 


B 


T6.0,,, 


GO TO NEXT TEST 


01585 




00009 




K5.0 


DAC 


9, TABULATE* 




ft 1 AO"* 




ftftft l"A 




If K \ 


OAC 


16, RETURN CARRIAGE* 










♦ 
# 


THIS ROUTINE TESTS THE TABULATE AND 












CARRIAGE RETURN. 


ft 1 A. A 


1 A 
1 O 


ft ft 7 Tl C 

UO f <r!> 


ftftft ft 

000^0 


V A f\ 


FFM 


COUNT, 0, 10, 


RESET PASS COUNT TO 0 


ft 1 iC A A 


^ A 


00000 


ft A 1 r\ 1 




RCTY 






ft 1 A R O 


■* A 


ft ft ft ft ft 
000 00 


ft *^ \ r\ 
0010^ 




RCTY 






ft 1 A*?ft 


!l A 
JH 


ft ft ft ft 

00000 


ft ft 1 ft o 

00 I Oct 




TBTY 


» t • 


TAB CARRIAGE 


ft I A O 5 
U 1 DO A 


1 A 
J** 


n ft ft ft ft 
UOOOO 


ft ft 1 ft Q 

00 iUo 




TBTY 


t « f 


TAB CARRIAGE 


ft 1 A Q A 


"3 O 

J»o 


ft 1 T Cl /■^ 


ft ft 1 Aft 

00 100 




WNTY 


K6 . 0 t , t 


TYPE TEST PATTERN 


01706 


47 


01730 


01900 




BNA 


•+24,, , 


TESr ANY DATA CK 


01718 


17 


02686 


-1718 




BTM 


ERROR, •, , 


GO TO ERROR ROUTINE 


01730 


46 


01658 


00200 




BC2 


T6.0+24, , , 


LOOP IF SW? ON 


ft \ 7A. 9 


1 1 


ftft7 ^ e; 


n ftft 1 




AM 


COUNT, I, 10, 


UPDATE PASS COUNT 


01754 


14 


C^725 


000-3 




CM 


COUNT, 3, 10, 


SEE IF 3 PASSES MADE 


01766 


47 


01658 


01300 




3L 


T6.0+24, , , 


DO AGAIN 


01778 


49 


01802 


00000 




B 


T7.0, , , 


GO TO NEXT TEST 


01790 




0001 1 




K6.0 


DSC 


11,0123456789 












• 


THIS ROUTINE TESTS THE SPACE OPERATION 


ft 1 O ft *J> 
U 1 ClU A 


1 A 
I O 


ft ft 7 o t; 
U U f c 3 


ftftft ft 

OUU— 0 


T f ft 


TFM 


COUNT, 0, 10, 


RESET PASS COUNT TO 0 


ft 1 a s A 


■a A 


ft ft ft ft ft 


ft ft 1 ft "> 

0 010a 




RCTY 






ft 1 Q O A 


1 A 


n ft A A ft 

uuuy 0 


ft ft 1 AO 

00 1 0 A 




RCTY 






ft 1 n t> Q 




ft 1 o n Q 


ft ft 1 ft ft 

U U I u u 




WATY 


K7.0,,, 


TYPE-SPACE TWICE 


ft 1 O ti ft 

U 1 o !3 U 


A 


ft ft ft ft ft 

OOOuO 


ft ft 1 r\ % 

00 1 0 ,1 




SPTY 






ft 1 <3 A *> 


^ A 
J** 


00000 


A /^ 1 ft K 

00101 




SPTY 






01874 


4 7 


01898 


01900 




BNA 


«+24 , , , 


TEST ANY DATA CHECK 


01886 


17 


02686 


-1806 




BTM 


ERROR , •, , 


GO TO ERROR RGUflNE 


01898 


46 


01838 


00200 




BC2 


17. 0+36, » , 


LOOP IF SW2 ON 


ft 1 C 1 ft 


t « 
1 1 


ft ft "7 O K 


ft ft A t 




AM 


COUNT, 1,10, 


UPDATE PASS COUNT 


01922 


14 


00725 


000-5 




CM 


COUNT, 5, 10, 


SEE IF 5 LOOPS MADE 


ft 1 O'Xlt. 


A.7 


ft 1 Q <st a 


ft ^ tiftft 
0 1300 




BL 


T7.0+36, , , 


REPEAT 


01946 


49 


02534 


00000 


» 


B 


FINISH,,, 


GO TO PROG COMPLETE ROUTINE 


01959 




00012 




K7.0 
• 


DAC 


12, SPACE TWICE* 












A 


MANUAL ENTRY 


TO THIS ROUTINE WILL SET UP 
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01982 


34 


ooodo 


00102 


T8.0 


RCTY 






0199A 


39 


02163 


OOlOO 




WATY 


INST2,f t 


TYPE INSTRUCTIONS 


02006 


34 


ooooo 


00102 




RCTY 






02018 


37 


03199 


00100 




RATY 


RDIN, , , 


READ IN RECORD 


02030 


47 


02054 


01900 




BNA 


» + 24f , , 


TEST ANY DATA CK 


020A2 


17 


02686 


-2042 




BTM 


ERRCJR,*, , 


GO TO ERROR ROUTINE 


0205A 


46 


01982 


00200 




ac2 


T8.0t t f 


LOOP IN READ SECTION 


02066 


34 


t> f\ f\ f\ fs 

00000 


00 102 




D r T v 






02078 


39 


03199 


00100 




WATY 


RDIN, , , 


TYPE SAME RECORD OUT 


02090 


47 


02114 


01900 




BNA 


•+24, 


TEST ANY DATA CK 


02102 


17 


02686 


-2102 




BTM 


ERROR,*, , 


GC TO ERROR ROUTINE 


02114 


46 


02066 


00200 




BC2 


•-48, , , 


LOOP IN WRITE SECTION 


02126 


46 


01982 


00400 




BC4 


Td.O, , , 


LOOP IN ROUTINE IF SW4 ON 


02138 


48 


COOOO 


00000 




H 






02 ISP 


49 


01982 


00000 




H 


T8.0,,, 


REPEAT ROUTINE 


02163 




00047 




« 

INST2 
• 


OAC 


47, KEY IN ALPHA RECORD. TERM INATE WITH RECORD 










. * 
• 


A 


MANUAL ENTRY 


TO THIS ROUTINE WILL SET UP 










» 


A 


READ NUMERIC 


OPERATION, AND WILL ACCEPT 



ANY NUMERIC RECORD KEYED IN. THE SAME MESSAGE 
WILL BE TYPED OUT. 



02256 


34 


00000 


00 102 


T9.0 


RCTY 








39 


02437 


00 lOO 




WATY 


INST3,,, 


TYPE INSTRUCTIONS 


02280 


34 


00000 


00102 




RCTY 




02292 


36 


03199 


OOlOO 




RNTY 


RDIN,,, 


READ IN RECORD 


02304 


47 


02328 


01900 




DNA 


•♦24, , , 


TEST ANY DATA CK 


02316 


17 


02686 


-2316 




BTM 


ERRQR.f , , 


GO TO ERROR ROUTINE 


02328 


46 


02256 


00200 




BC2 


T9.0,,, 


LOOP IN READ SECTION 


02340 


34 


00000 


00102 




RCTY 




02352 


38 


03199 


00100 




WNTY 


RDIN, , , 


TYPE SAME RECORD OUT 


02364 


47 


02388 


01900 




DNA 


*+24,,, 


TEST ANY DATA CK 


02376 


17 


02686 


-2376 




BTM 


ERROR, t, , 


GO TO ERROR ROUTINE 


0238 8 


46 


02340 


00200 




BC2 


•-48,,, 


LOOP IN WRITE SECTION 


02400 


46 


02256 


00400 




BC4 


T9.0,,, 


LOOP IN ROUTINE 


02412 


48 


00000 


00000 




H 








49 


02256 


00000 




B 


T9.0,,, ■ 


REPEAT ROUTINE 


02^37 




00049 




» 

INST3 
» 


OAC 


49, KEY IN 


NUMERIC RECORDiTERMl'NATE WITH RECORD 










« 


PROGRAM FINISHED ROUTINE 


02534 


34 


00000 


00102 


FINISH 


RCTY 






02546 


39 


02619 


00100 




WATY 


FINI 




02558 


46 


00726 


00400 




BC4 


Tl.O, , , 


REPEAT PROG IF SW4 ON 


02570 


45 


02594 


18117 




BNR 


•♦24,M0N 




02582 


49 


18000 


00000 




B 


MCNIT 




02594 


36 


COOOO 


00500 




RNCD 


♦ , , 


READ NEXT PROG IF SW4 OFF 


02606 


49 


00000 


00000 




8 


0, , , 


GC TO LOADER 


02619 




00031 




. FINI 


DAC 


31,DTX03 


TYPEWRITER TEST COMPLETE* 


02684 




00005 




« 


DC 


5,0 












* 


COMMON ERROR ROUTINE 


02686 


46 


02938 


00100 


ERROR 


BCl 


RSET,,, 


BYPASS ERROR RTN IF SWl ON 


02698 


47 


02734 


00300 




BNC3 


*+36, , , 


BYPASS HALT IF SW3 OFF- 
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02710 


48 


00000 


00000 




H 


«»f DISPLAY IR2 FOR LOC+12 OF ERROR 


02722 


49 


G2938 


00000 




B 


RSET»,, GO RESET DATA CK INDICATORS 












ERROR TYPEOUT SECTION 


02734 


26 


03060 


02605 




TF 


0UT*4,ERR0R-l, ,SET EXIT ADR IN TYPEOUT AREA 


02746 


34 


COOOO 


00102 




RCTY 




02758 


39 


030 1 1 


00 100 




WATY 


E XT » 1 1 


02770 


38 


0*3056 


00100 




WNTY 


OUT,,, TYPE ADDRESS 










• 


TYPE OUT WHICH DATA CK INDICATORS ARE CN 


02782 


47 


02B06 


00600 




8NI 


«*24,600, 9 READ CK 


02794 


39 


03043 


00 1 00 




WATY 


RDK 


02806 


47 


02 8 3 0 


00700 






s-9-24,700, , WRITE CK 


02818 


39 


C306 3 


00 100 




WATY 


WKK 


02830 


4 7 


028 54 


00800 




BNI 


•♦24,800,, MAR CK 


02842 


39 


03077 


00100 




WATY 


MRK 


02854 


47 


05878 


01600 




BNI 


**24,1600,, MBRE CK 


02866 


39 


0309 3 


OOlOO 




WATY 


BRE 


02878 


47 


C'2902 


01 700 




BNI 


»*24,1700, , M8R0 CK 


02890 


39 


031 13 


00 1 00 




WATY 


BRO 


02902 


47 


02926 


01900 




BNI 


»*-24,l900,, ANY DATA CK 


02914 


39 


03133 


00100 




WATY 


HUH 


02926 


42 


oooou 


00000 


» 


BB 


,,, RETURN TO PROG 










• 


INO RESET IF SWl OR 3 ON 


02938 


46 


02950 


00600 


RSET 


BI 


1^+12,600 


02950 


46 


02962 


00700 




BI 


o+L2,700 


02962 


46 


02974 


00800 




BI 


*-«-l2,80O 


02974 


46 


02986 


01600 




BI 


t+12,1600 


r\ r\ J" 

02986 


46 


02998 


01700 




BI 


f+12,l700 


02998 


42 


00000 


00000 




BB 


RETURN TO PROG 


0301 1 




00016 




EXT 


DAC 


16, ERROR EXIT ADR • 


03043 




00007 




RDK 


DAC 


?, RD CK» 


03056 




00006 




OUT 


DSC 


6 , 0 • 


0 3063 




00007 




WRK 


DAC 


7, WR CK« 


03077 




00008 




MRK 


DAC 


fi>, MAR CK« 


03093 




00010 




BRE 


DAC 


|0, MBR-E CK* 


03113 




GOOlO 




BRO 


DAC 


]L0, MBR-0 CK» 


03133 




00033 




HUH 


DAC 


33, DATA CK CAUSING ERROR NOT RESET' 


03199 




00002 




ROIN 


DAC 


2, • 


03202 




GOOOl 




LAST 


DSC 


1,0 


00416 










DENO 


ORG 
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DT X03 80/80 LIST 



36G0072005003'60020 10050044000 12002762 6000590027^250001100000260009000269 -0000 
2600095002643100000002C02600 1 14002742 500000000 U49000 1200000 -0001 
M4677073* 1-1-0402-0410 -0002 

-3202* 1-1-0410-0415 -0003 

4500440181 174-9 1800000 000340072600 102 160044 1000M9 3900 58500 lOOtO- 1-04 1 6-0476 -0004 
47005000190017026 86-04 88340000000102 3900629001004 700 548019004=0-1-0476-0536 -0005 
1702 686-05 36340000000 10248000000000049007 2600000* 0-1-0536-0584 -0006 

0 36 85 74566594963455900634562630044636770730* 1-1-0584-0628 -C007 
0245630054415-9474955620041630071700041554400797023* 1-1-0628-06 78 -0008 
03414200626356576200416300 7575004155440078750* 1-1-0678-0724 -0009 
-0* 1-1-0724-0726-0010 
1600725000-0340000000102 340000000102 3900859001004 70079801900*0-1-0726-0786 -0011 
1702686-0 786460075000200 11 00725000- 11 4007^' 5000-34700 7500 1300*0- 1-0 78 6- 084 6 -0012 
490091200000* 0-1-0846-0858 -0013 
Ml 4243444 546474849 5 152 5354 5556575 859626 36465666768690* 1-1-0858-0912 -0014 
160072 5000-0340000000102 340000000102 390104500100470098401900*0-1-0912-0972 -0015 
1702686-09724600936002001100 725000-11400725000-3470093601300*0-1-0972-1032 -0016 
490109200000* 0-1-1032-1044 -0017 
-0030410131420212324333450707172737475767778790* 1-1-1044-1092 -0018 
1600725000-0340000000102340000000102380122400100470116401900*0-1-1092-1152 -0019 

1 702686- 11 52460 11 1600200 1100725000-1 1400725000-3470 11 160 1 300*0-1- 1 152-1212 -0020 
490123600000* 0-1-1212-1224 -0021 
0123456789* 1-1-1224-1234 -0022 

•* -7-1234-1235 -0023 

* 1-1-1235-1236 -0024 
1600 725000-0311990801380340000000102340000000102 351998800100*0-1-1236-1296 -0025 
4701320019001702606-130846012 72002001100725000-11400725000-3*0-1-1296-1356 -0026 
4701272013004901392000CO* 0-1-1356-1380 -0027 
-JKLMNOPQR* 1-1-1300-1390 -0028 

•* -7-1390-1391 -0029 

* 1-1-1391-1392 -0030 
16C0725000-0340000000 102340000000 102390 150500 100340000000108*0- 1-1 392- 1452 -C031 
4 7014 76019001702686-1464390160300100340000000102470152401900*0-1-1452-1512 -0032 
1702686-15124601428002001100725000-11400725000-3470142801300*0-1-1512-1572 -0033 
490163400000* 0-1-1572-1584 -0034 
03414264534163450* 1-1-1584-1602 -0035 
N945636459550043415959494147450* 1-1-1602-1634 -0036 
1600725000-0340000000102 340000000102 340000000108 340000000108*0-1-1634-1694 -0037 
3801790001004701730019001702686-17184601658002001100725000-1*0-1-1694-1754 -0038 
1400725000-34 701658013C0490180200000* 0-1-1754-1790 -0039 
0123456789* 1-1-1790-1801 -0040 
1 60072 5000-034000000C 1 02 34C000000 102390195900 100 340000000 10 1*0- 1-1 002- 1862 -0041 
3400000001014701898019001702686-18864601838002001100725000-1*0-1-1862-1922 -0042 
140C725000-5470183801300490253400000* 0-1-1922-1958 -0043 
02574143450063664943450* 1-1-1958-1982 -0044 
340000000102 390216300100340000000102 3703199001004 70205401900*0-1-1982-2042 -0045 
1 702686-2042460 1 982002C0340000000 102 3903 1 9900 1 004 702 1140 1900*0- 1-204 2- 2 102 -0046 
1702606-210246020660020046019 8200400480000000000^00198200000*0-1-2102-2162 -0047 
N2456800495500415357484100594543565944236345595449* 1-1-2162-2212 -0048 
5541634500664963480059454356594400544159520* 1-1-2212-2256 -0049 
340000000102390243700100340000000102360319900100470232001900*0-1-2256-2 316-0050 
1702686-2316460225600200340000000102380319900100470230801900*0-1-2316-2376-0051 

. 1 702686-2376460234000200460225600400480000000000490225600000*0- 1-^2376- 24 
N2456800495500556454455949430059454356594423634559* 1-1-2436-2486 -0053 

54495541634500664963480059454356594400544159520* 1-1-2486-2534 -0054 

340000000102390261900100460072600400450259418117491800000000*0-1-2534-2594 -0055 
360000000500490000000000* 0-1-2594-2618-0056 
M463677073006368574566594963455900634 5626300435654* 1-1-2618-2668 -0057 
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.57534563450* 

-oooot 



l- 
l- 



i 



2668' 
2680- 



26B0 

2685 



-0058 
-0059 



460293800 1 00470273400 30048 C000000000490293800000 260 30600268540- 1-2686-2 746 -0060 
340000000102390301 100100 380305600100470280600600390304300100*0-1-274 6-2806 •»0061 
470283000700390306300 IOO47O2854OO80O39O3O7?OO1OO47O2878O16OO*O- 1-2806-2866 -0062 
390309300 1 0047029020 1 7003903 113001004 70292601900390313300100*0- 1-2866-2926 -C063 
42000000000046029500060046029620070046029740080046029860160040-1-2926-2986 -0064 
460299801700420000COOOOO* 0-1-2986-3010 -0065 

M559595659004567496300414459000* 1-1-3010-3042 -0066 

-059440043520* 1-1-3042-3056 -0067 

OOGOO* - 1-1-305*6-3062 -0068 

-066590043520* 1-1-3062-3076 -0069 

-05441590043520* I- 1-3076-- 3092 -0070 

-054425920450043520* 1-1-3092-3112 -0071 

-054425920700043520* 1-1-3112-3132 -0072 

-044416341004 3520043416462495547004559595659005556* 1-1-3132-3182 -0073 

630059456245630* 1-1-3182-3198 -0074 

-00* 1-1-3198-3202 -0075 

0* 1-1-3202-3203 -0076 

00000 L6000a00050049COOOO*l205723-000133057230000049057120000-8-0096-OX 15 -0077 
3600100005003.60017200500360024400500360031600500360000000500 -0078 
0000000000001,02030400020406080003060902100408021610050015102006021814200* -0079 
704)1128200806,1422 3009081726300000000005060708090012141618151811242720242* -0080 
8223635203 5304540363248445 532494653604846546275445362 7180123456789123456* -0081 
789-23456 789- J 3456 789- JK456789-JKL56709-JKLM6 789- JKLMN789-JKLMN089~JKLNN* -0082 
M8000000000049'-04160P9-JKLMNOPQ* L 100388000 19M900COOOOOOOM9000 3600000 -0083 
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